BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/A-An/animate.cpt/Animation Stack/background_2653.txt

Text File | 1988-01-31 | 10.5 KB | 439 lines

-- background: 2653 from stack: in
-- bmap block id: 3783
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=142 top=22 right=40 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continuous
----- HyperTalk script -----
on mouseUp
  set hilite of background button "Point-to-Point" to false
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=142 top=43 right=60 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Point-to-Point
----- HyperTalk script -----
on mouseUp
  set hilite of background button "Continuous" to false
end mouseUp



-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=271 top=36 right=304 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Animation Sequence
----- HyperTalk script -----
on closeField
  global endLoc
  repeat until last word of last line of field "Animation Sequence" is not empty
    delete last line of field "Animation Sequence"
  end repeat
  put last word of last line of field "Animation Sequence" into it
  if item 2 of it is empty or item 3 of it is not empty then
    set hilite of bkgnd button "Continue?" to false
    put empty into endLoc
  else put it into endLoc
end closeField


-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=223 top=109 right=147 bottom=265
-- title width / last selected line: 65410
-- icon id / first selected line: -15743 / 49793
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Begin
----- HyperTalk script -----
on mouseUp
  global endLoc
  set icon of bkgnd button "Begin" to -15744
  if hilite of bkgnd button "Continue?" is false then
    -- wait 10
    put "Click at starting point for animation." into field "Additional Notes"
    show field "Additional Notes"
    hide field "Notes"
    wait until the mouse is down
    put the mouseLoc into startLoc
  else
    put endLoc into startLoc
    put "Click at next point to continue to....." into field "Additional Notes"
    show field "Additional Notes"
    hide field "Notes"
    repeat while the mouse is up
      put the mouseLoc into field "Mouse"
    end repeat
    put the mouseLoc into endLoc
    put "drag from " & startLoc & " to " & endLoc & return after field "Animation Sequence"
    wait 10
  end if
  if hilite of background button "Continuous" is true then
    put "Click once to terminate animation sequence." into field "Additional Notes"
    repeat while the mouse is up
      put the mouseLoc into endLoc
      put "drag from " & startLoc & " to " & endLoc & return after field "Animation Sequence"
      put endLoc into startLoc
    end repeat
    set hilite of me to false
  else
    put "Click to designate next point in sequence.  " & "Double-click to terminate animation sequence." into field "Additional Notes"
    repeat
      wait until the mouse is down
      put the mouseLoc into endLoc
      wait 15
      if the mouse is down then
        put "drag from " & startLoc & " to " & endLoc & return after field "Animation Sequence"
        exit repeat
      end if
      put "drag from " & startLoc & " to " & endLoc & return after field "Animation Sequence"
      put endLoc into startLoc
    end repeat
  end if
  set icon of bkgnd button "Begin" to -15743
  show field "Notes"
  hide field "Additional Notes"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=11 top=271 right=300 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Up
----- HyperTalk script -----
on mouseUp
  put "on mouseUp" & return into workScript
  put "choose Lasso Tool" & return after workScript
  put "domenu Select" & return after workScript
  put "domenu Opaque" & return after workScript
  put field "Animation Sequence" after workScript
  put "domenu Undo" & return after workScript
  put "choose " & quote & "Browse Tool" & quote & return after workScript
  put "end mouseUp" after workScript
  set script of background button "Do It!" to workScript
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=98 top=272 right=301 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do It!
----- HyperTalk script -----
on mouseUp
  choose Lasso Tool
  domenu Select
  domenu Opaque
  set dragSpeed to 1000
  drag from 64,116 to 204,5
  drag from 204,5 to 497,203
  drag from 497,203 to 322,327
  drag from 322,327 to 11,135
  drag from 11,135 to 127,12
  drag from 127,12 to 495,289
  drag from 495,289 to 447,328
  drag from 447,328 to 67,115
  domenu Undo
  choose "Browse Tool"
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=335 top=312 right=341 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  global endLoc
  set hilite of bkgnd button "Continue?" to false
  put "set dragSpeed to " & field "Speed" & return into field "Animation Sequence"
  put empty into endLoc
end mouseUp



-- part 10 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=137 top=148 right=174 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Speed


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=232 top=150 right=174 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the selection is empty then
    put "set dragSpeed to " & field "Speed" & return after field "Animation Sequence"
  else
    type "set dragSpeed to " & field "Speed" & return
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=143 top=83 right=106 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue?
----- HyperTalk script -----
on mouseUp
  global endLoc
  if hilite of bkgnd button "Continue?" is true then
    set hilite of bkgnd button "Continue?" to false
    exit mouseUp
  end if
  repeat until last word of last line of field "Animation Sequence" is not empty
    delete last line of field "Animation Sequence"
  end repeat
  put number of lines of field "Animation Sequence" into noLines
  repeat
    put last word of line noLines of field "Animation Sequence" into it
    if item 2 of it is empty or item 3 of it is not empty then
      subtract 1 from noLines
      if noLines is 0 then
        answer "No place to continue from!" with "OK"
        exit repeat
      end if
    else
      set hilite of bkgnd button "Continue?" to true
      put it into endLoc
      exit repeat
    end if
  end repeat
end mouseUp



-- part 13 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=54 top=308 right=332 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: mouse


-- part 14 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=9 top=182 right=269 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Additional Notes


-- part 15 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=9 top=182 right=269 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=476 top=311 right=337 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual dissolve to white
  visual dissolve to card
  go back
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=234 top=307 right=339 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual dissolve slowly to white
  visual dissolve to card
  go next
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=309 right=335 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual dissolve to white
  visual dissolve to card
  go home
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=158 top=311 right=331 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MouseLoc
----- HyperTalk script -----
on mouseUp
  repeat until the mouse is down
    put the mouseLoc into field "Mouse"
  end repeat
  set hilite of bkgnd button "MouseLoc" to false
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=211 top=272 right=302 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual dissolve to card
  go first
end mouseUp